## run with 
##  /local/ActiveTcl/bin/wish -f test1.tcl

package require tile
puts [tile::availableThemes]
tile::setTheme clam

wm withdraw .
toplevel .1
ttk::button .1.b1 -text "hello" -command "puts click"
ttk::button .1.b2 -text "joe"   -command "puts click1"
pack .1.b1 .1.b2


